home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 4 / BBS in a Box - Macintosh - Volume IV (January 1992) (BBS in a Box).iso / Files / Game / C / CORE! 1.1.CPT / Core! 1.1 / Battle Programs / contest90 / PAPER.RED < prev    next >
Encoding:
Text File  |  1991-08-13  |  1.9 KB  |  69 lines
  1. ;
  2. ;    Warrior: Paper: A.K.A molerat
  3. ;  File name: paper.red
  4. ; Tournament: ICWST'90
  5. ;   Standard: CWS'88
  6. ;     Author: Scott Nelson
  7. ;
  8. start   spl      1         1
  9.         mov     -1         0
  10.         mov     -1         0
  11. ;       sub    # 1         count       ;add these two lines to make it work
  12. ;       jmn      0         count       ;under '86 rules.
  13.         spl      paper4
  14.         spl      paper3
  15.         spl      paper2
  16.         jmp      paper1
  17. count   dat                5
  18. src1    mov    # 10        10
  19.         sub    < 203       204
  20. paper1  mov    < src1    < dest1
  21.         mov    < src1    < dest1
  22.         spl      back1     back1
  23.         mov      bomb1   < 200
  24. dest1   jmz    @ dest1     6101
  25. back1   jmz      src1      src1
  26.         mov      0        -1
  27. bomb1   dat               -10
  28.         dat                1
  29.         dat                1
  30.         dat                1
  31. src2    mov    # 10        10
  32.         add    < 203       204
  33. paper2  mov    < src2    < dest2
  34.         mov    < src2    < dest2
  35.         spl      back2     back2
  36.         mov      bomb2   < 200
  37. dest2   jmz    @ dest2     6301
  38. back2   jmz      src2      src2
  39.         mov      0        -1
  40. bomb2   dat               -10
  41.         dat                1
  42.         dat                1
  43.         dat                1
  44.         mov    # 10        10
  45.         sub    < 203       204
  46. paper3  mov    <-2       < 4
  47.         mov    <-3       < 3
  48.         spl      3         3
  49.         mov      4       < 200
  50.         jmz    @ 0         6501
  51.         jmz     -7        -7
  52.         mov      0        -1
  53.         dat               -10
  54.         dat                1
  55.         dat                1
  56.         dat                1
  57.         mov    # 10        10
  58.         add    < 203       204
  59. paper4  mov    <-2       < 4
  60.         mov    <-3       < 3
  61.         spl      3         3
  62.         mov      4       < 200
  63.         jmz    @ 0         6701
  64.         jmz     -7        -7
  65.         mov      0        -1
  66.         dat               -10
  67.         end      start
  68.  
  69. r